30 FORI=1TO56:READI$:NEXT:DL=PEEK(65):DH=PEEK(66):FORI=1TO12:READI$:NEXT:READPZ 31 Z=2:F=0:D=0:READB$:BL=PEEK(65):BH=PEEK(66):ZL=PEEK(63):ZH=PEEK(64):L$=LEFT$(B$,3):RESTORE 32 OP$="0":H$=MID$(B$,5,1):L=LEN(B$):FORI=1TO56:READV$:ON(L$=LEFT$(V$,3))+2GOTO33:NEXT:GOTO40 33 Z$="":POKE65,DL:POKE66,DH:FORI=6TOL:ON-(L<6)GOTO35:Z$=MID$(B$,I,1):H=ASC(Z$) 34 IFH>47THENIFH<71THENH$=H$+" ":OP$=OP$+Z$:Z$="" 35 H$=H$+Z$:NEXT:FORI=1TO12:READAF$:ON(H$=AF$)+2GOTO36:NEXT:GOTO40 36 Z=Z+2:H=ASC(MID$(V$,Z,1)):Z=Z-(H>80):F=F+1-(H>80)*(H-80):ON-(F>I)GOTO 40 37 ON-(I>F)GOTO36:M$=MID$(V$,Z,2):H=ASC(M$):POKEPZ,(H-65)*16+ASC(RIGHT$(M$,1))-65 38 PRINTPZ,B$:PZ=PZ+1:FORI=1TOLEN(OP$):H=ASC(MID$(OP$,I,1))-48:D=D*16+H+(H>16)*7:NEXT 39 G=INT(D/256):POKEPZ,D-G*256:POKEPZ+1,G:PZ=PZ+INT(LEN(OP$)/2):POKE65,BL:POKE66,BH:GOTO31 40 PRINT" SYNTAX ERROR IN";ZL+ZH*16:END:DATALDAQKJKNKFLNLJLFLBKBS,STARINIFJNJJJFJBIBS 41 DATALDXQKCKOKGQLOSLGR,STXRIOIGUJGR,LDYQKAKMKELMQLEU,STYRIMIERJEU,INCROOOGPOQPGU 42 DATADECRMOMGNOQNGU,JSRRCAY,JMPREMXGM,ADCQGJGNGFHNHJHFHBGBS,SBCQOJONOFPNPJPFPBOBS 43 DATAINXOI\,INYMI\,DEXMK\,DEYII\,BEQQPA[,BNEQNA[,BCSQLA[,BCCQJA[,BMIQDA[,BPLQBA[ 44 DATAANDQCJCNCFDNDJDFDBCBS,ORAQAJANAFBNBJBFBBABS,EORQEJENEFFNFJFFFBEBS,BITRCMCEX 45 DATACMPQMJMNMFNNNJNFNBMBS,CPXQOAOMOEX,CPYQMAMMMEX,BVSQHA[,BVCQFA[,RTSGA\,RTIEA\ 46 DATATAXKK\,TXAIK\,TAYKI\,TYAJI\,CLCBI\,SECDI\,CLDNI\,SEDPI\,CLIFI\,SEIHI\,CLVLI\ 47 DATAPHAEI\,PLAGI\,PHPAI\,PLPCI\,TXSJK\,TSXLK\,BRKAA\,NOPOK\,ASLRAOAGBOQBGSAKQ 48 DATALSRREOEGFOQFGSEKQ,ROLRCOCGDOQDGSCKQ,RORRGOGGHOQHGSGKQ,"",#$ ,$ ,"$ " 49 DATA"$ ,X","$ ,Y","$ ,X","($ ),Y","($ ,X)","$ ,Y",A,($ ) 50 : 100 DATA 8192 101 DATA "LDA #$00" 102 DATA "LDA $0000" 103 DATA "LDA $00" 104 DATA "LDA $0000,X" 105 DATA "LDA $0000,Y" 106 DATA "LDA $00,X" 107 DATA "LDA ($00,X)" 108 DATA "LDA ($00),Y" 109 DATA "LDX #$00" 110 DATA "LDX $0000" 111 DATA "LDX $00" 112 DATA "LDX $0000,Y" 113 DATA "LDX $00,Y" 114 DATA "LDY #$00" 115 DATA "LDY $0000" 116 DATA "LDY $00" 117 DATA "LDY $0000,X" 118 DATA "LDY $00,X" 119 : 120 DATA "STA $0000" 121 DATA "STA $00" 122 DATA "STA $0000,X" 123 DATA "STA $0000,Y" 124 DATA "STA $00,X" 125 DATA "STA ($00,X)" 126 DATA "STA ($00),Y" 127 DATA "STX $0000" 128 DATA "STX $00" 129 DATA "STX $00,Y" 130 DATA "STY $0000" 131 DATA "STY $00" 132 DATA "STY $00,X" 133 : 134 DATA "TAX" 135 DATA "TXA" 136 DATA "TAY" 137 DATA "TYA" 138 DATA "TXS" 139 DATA "TSX" 140 : 141 DATA "ADC #$00" 142 DATA "ADC $0000" 143 DATA "ADC $00" 144 DATA "ADC $0000,X" 145 DATA "ADC $0000,Y" 146 DATA "ADC $00,X" 147 DATA "ADC ($00,X)" 148 DATA "ADC ($00),Y" 149 DATA "SBC #$00" 150 DATA "SBC $0000" 151 DATA "SBC $00" 152 DATA "SBC $0000,X" 153 DATA "SBC $0000,Y" 154 DATA "SBC $00,X" 155 DATA "SBC ($00,X)" 156 DATA "SBC ($00),Y" 157 : 158 DATA "AND #$00" 159 DATA "AND $0000" 160 DATA "AND $00" 161 DATA "AND $0000,X" 162 DATA "AND $0000,Y" 163 DATA "AND $00,X" 164 DATA "AND ($00,X)" 165 DATA "AND ($00),Y" 166 DATA "ORA #$00" 167 DATA "ORA $0000" 168 DATA "ORA $00" 169 DATA "ORA $0000,X" 170 DATA "ORA $0000,Y" 171 DATA "ORA $00,X" 172 DATA "ORA ($00,X)" 173 DATA "ORA ($00),Y" 174 DATA "EOR #$00" 175 DATA "EOR $0000" 176 DATA "EOR $00" 177 DATA "EOR $0000,X" 178 DATA "EOR $0000,Y" 179 DATA "EOR $00,X" 180 DATA "EOR ($00,X)" 181 DATA "EOR ($00),Y" 182 : 183 DATA "INX" 184 DATA "INY" 185 DATA "DEX" 186 DATA "DEY" 187 DATA "INC $0000" 188 DATA "INC $00" 189 DATA "INC $0000,X" 190 DATA "INC $00,X" 191 DATA "DEC $0000" 192 DATA "DEC $00" 193 DATA "DEC $0000,X" 194 DATA "DEC $00,X" 195 : 196 DATA "ASL A" 197 DATA "ASL $0000" 198 DATA "ASL $00" 199 DATA "ASL $0000,X" 200 DATA "ASL $00,X" 201 DATA "LSR A" 202 DATA "LSR $0000" 203 DATA "LSR $00" 204 DATA "LSR $0000,X" 205 DATA "LSR $00,X" 206 DATA "ROL A" 207 DATA "ROL $0000" 208 DATA "ROL $00" 209 DATA "ROL $0000,X" 210 DATA "ROL $00,X" 211 DATA "ROR A" 212 DATA "ROR $0000" 213 DATA "ROR $00" 214 DATA "ROR $0000,X" 215 DATA "ROR $00,X" 216 : 217 DATA "CMP #$00" 218 DATA "CMP $0000" 219 DATA "CMP $00" 220 DATA "CMP $0000,X" 221 DATA "CMP $0000,Y" 222 DATA "CMP $00,X" 223 DATA "CMP ($00,X)" 224 DATA "CMP ($00),Y" 225 DATA "CPX #$00" 226 DATA "CPX $0000" 227 DATA "CPX $00" 228 DATA "CPY #$00" 229 DATA "CPY $0000" 230 DATA "CPY $00" 231 : 232 DATA "BEQ #$00" 233 DATA "BNE #$00" 234 DATA "BCS #$00" 235 DATA "BCC #$00" 236 DATA "BMI #$00" 237 DATA "BPL #$00" 238 DATA "BVS #$00" 239 DATA "BVC #$00" 240 : 241 DATA "CLC" 242 DATA "SEC" 243 DATA "CLD" 244 DATA "SED" 245 DATA "CLI" 246 DATA "SEI" 247 DATA "CLV" 248 : 249 DATA "JMP $0000" 250 DATA "JMP ($0000)" 251 : 252 DATA "JSR $0000" 253 DATA "RTS" 254 : 255 DATA "PHA" 256 DATA "PLA" 257 DATA "PHP" 258 DATA "PLP" 259 : 260 DATA "RTI" 261 DATA "BRK" 262 : 263 DATA "BIT $0000" 264 DATA "BIT $00" 265 DATA "NOP"